home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00005_vox.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  2.4 KB  |  146 lines
  1. on playVoxInterviews
  2.   
  3.   doVoxNow "voxInterviews"
  4.   
  5. end playVoxInterviews
  6.  
  7. ---------------------------------------------------
  8. on playVoxDiary
  9.   
  10.   doVoxNow "voxDiary"
  11.   
  12. end playVoxDiary
  13.  
  14. ---------------------------------------------------
  15. on playVoxBrowse
  16.   
  17.   doVoxNow "voxBrowse"
  18.   
  19. end playVoxBrowse
  20.  
  21. ---------------------------------------------------
  22. on playVoxField
  23.   
  24.   doVoxNow "voxField"
  25.   
  26. end playVoxField
  27.  
  28. ---------------------------------------------------
  29. --on playVoxHome
  30. --  
  31. --  puppetSound "voxHome"
  32. --  updateStage
  33. --  
  34. --end playVoxHome
  35.  
  36. ---------------------------------------------------
  37. --on playVoxHouse
  38. --  
  39. --  puppetSound "voxHouse"
  40. --  updateStage
  41. --  
  42. --end playVoxHouse
  43.  
  44. ---------------------------------------------------
  45. on playVoxJourneys
  46.   
  47.   doVoxNow "voxJourneys"
  48.   
  49. end playVoxJourneys
  50.  
  51. ---------------------------------------------------
  52. on playVoxMap
  53.   
  54.   doVoxNow "voxMap"
  55.   
  56. end playVoxMap
  57.  
  58. ---------------------------------------------------
  59. on playVoxNeighborhood
  60.   
  61.   doVoxNow "voxNeighborhood"
  62.   
  63. end playVoxNeighborhood
  64.  
  65. ---------------------------------------------------
  66. on playVoxPost
  67.   
  68.   doVoxNow "voxPostcard"
  69.   
  70. end playVoxPostcard
  71. --
  72. on playVoxPostcard
  73.   
  74.   doVoxNow "voxPostcard"
  75.   
  76. end playVoxPostcard
  77.  
  78. ---------------------------------------------------
  79. on playVoxSearch
  80.   
  81.   doVoxNow "voxSearch"
  82.   
  83. end playVoxSearch
  84. ---------------------------------------------------
  85. on doVoxLikeScroll 
  86.   
  87.   doVoxNow "scrollSound"
  88.   
  89. end doVoxLikeScroll
  90.  
  91. ---------------------------------------------------
  92. on initVox
  93.   global gVoxObject,gMyActorList
  94.   
  95.   set gVoxObject = new(script "Vox Object")
  96.   set gMyActorList = []
  97. end initVox
  98.  
  99. on doVoxNow voxToPlay
  100.   global gVoxObject,gMyActorList
  101.   
  102.   if (not(objectP(gVoxObject))) then
  103.     initVox
  104.   end if
  105.   
  106.   set retVal = mDoVoxThing (gVoxObject,voxToPlay)
  107.   if (retVal = -1) then
  108.     set gMyActorList = []
  109.   else
  110.     set gMyActorList = [gVoxObject]
  111.   end if
  112. end doVoxNow
  113.  
  114. on lowerQTSnd 
  115.   global gVoxObject
  116.   
  117.   if (not(objectP(gVoxObject))) then
  118.     initVox
  119.   end if
  120.   
  121.   mLowerSounds (gVoxObject)
  122. end lowerQTSnd
  123.  
  124. on raiseQTSnd 
  125.   global gVoxObject,gMyActorList
  126.   
  127.   if (not(objectP(gVoxObject))) then
  128.     initVox
  129.   end if
  130.   
  131.   mRaiseSounds (gVoxObject)
  132.   set gMyActorList = []
  133. end raiseQTSnd
  134.  
  135.  
  136. on stepMovie
  137.   global gVoxObject,gMyActorList
  138.   
  139.   if (not(objectP(gVoxObject))) then
  140.     initVox
  141.   end if
  142.   repeat with i in gMyActorList
  143.     mMyStepFrame(i)
  144.   end repeat
  145.   
  146. end stepMovie